home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue28 / subclass / app3main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-09-09  |  1.1 KB  |  58 lines
  1. unit app3main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, automemo;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     Memo1: TMemo;
  13.     Button2: TButton;
  14.     procedure Button1Click(Sender: TObject);
  15.     procedure Button2Click(Sender: TObject);
  16.     procedure Memo1Change(Sender: TObject);
  17.   private
  18.     scrollMemo : tautomemo;
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. var
  24.   Form1: TForm1;
  25.  
  26. implementation
  27.  
  28. {$R *.DFM}
  29.  
  30. procedure TForm1.Button1Click(Sender: TObject);
  31. begin
  32.   ScrollMemo := tAutoMemo.create(self);
  33.   with ScrollMemo do begin
  34.     parent := self;
  35.     top := button1.top + button1.height + 10;
  36.     left := button1.Left;
  37.     end;
  38. end;
  39.  
  40. procedure TForm1.Button2Click(Sender: TObject);
  41. var i : integer;
  42. const
  43.     someting : pchar = 'junk';
  44. begin
  45.     memo1.perform(WM_SETTEXT, 0, longint(someting));
  46. //  memo1.text := 'lkjoiu ';
  47. //  for i := 1 to 30 do
  48. //    memo1.lines.add('lkjlkj');
  49.  
  50. end;
  51.  
  52. procedure TForm1.Memo1Change(Sender: TObject);
  53. begin
  54.   memo1.color := clLime;
  55. end;
  56.  
  57. end.
  58.